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Wi come 
by Tommy Stokes 


The Sorcerer and the Sorcerer’s Apprentice live on. THiS 15 a credit 
to the Sorcerer. It is a tough machine, while others with much better 
support have not survived. No machine has had more devotion from its owners 
than the Sorcerer. 


Don’t despair! The Sorcerer is avery fine machine and will do what 
you need it to do. There are Sorcerer owners all over the world who /fhave 
mastered their machines and are using them successfully. You can, too. 


Have you noticed the by-line and wondered who or what Eaglenest 
Software is? It is a group of dedicated Sorcerer owners living in Arkansas 
who love their machines. Eaglenest is composed of Edward King, Andy Marts, 
and Tommy Stokes. Ed and Andy are electronic technicians, and I&’m a 
business instructor with programming experience. We are very appreciative 
of all the support and information we have gained in the past from the 
Sorcerer’s Apprentice and wish to pay back some of that by keeping the 
Apprenctice alive for another year. We are volunteering our effort in the 
hope that we can be a source of informaton transfer to you the Sorcerer 
owners. 


You can help us out. First, resubscribe for $18.00, that will allow us 
to print 6 issues for Volume six. Second, tell us what you are doing, what 
you need, ask questions about your problems or just write to say hello. 


Remember if you write in, you will probably see your name in print. 


Didn’t you always want to be famous!! So, help your fellow Sorcerer owners. 
Write about what is happenning with your Sorcerer good or bad. 
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Comming in future issues will be burning of bipolar PROMS (Bruce, 
S-100, etc.)> and more about the sorcerer. If anyone has ideas about 
interfacing for the sorcerer or hardware modifications please contact us. 
All ideas appreciated. 


EFrSOnN FLT links FRonmM EE fhe CA See TT Cae 


by Stan Podger 
a2 Gradwell Drive 
Scarborough, ON MiM 2Ni, Canada 


Exec-A-Sketch from Ensign Software iS a dandy program for making 
drawings on the Sorcerer screen. You can draw with single dots for high 
resolution, or -you can use a Radio Shack type of medium resolution. In 
addition, there is a text mode which allows you to put captions on your work 
of art. When it is finished, you can save your drawing on tape and play it 
back at some future time. 


One feature- that you would very much want is the ability to print the 
screen display on paper. For owners of the IDS-440 Faper Tiger, this 
facility is included. Unfortunately, there are far more Epson printers in 
use than Paper Tigers. Since I had written some screen dump routines for my 
Epson MX-80, it was natural that I would want to hang them on Exec-A-Sketch. 


Another very useful feature of Exec-A-Sketch is the following help 
table that allows you to review the commands at any time by simply typing 
CTRL-H. Then, when you press any key with the help table on the screen, 
your precious design reappears. On the right side of the display, you can 
see the four commands that have been added for Epson printing. The 
condensed format gives a small, high-density picture. The other three 
formats give pictures so large that only 60 characters per 1line can be put 
on the paper. Later in this article, we will discuss these modes in more 
detail. | * 


COMMAND DISPLAY 


All Modes: 


CTRL-F = fine pt CTRL-C = monitor MX-80 printing 

CTRL-M = meduim pt CTRL-S = save CTRL-B = condensed 
CTRL-T = text mode CTRL-L = load CTRL-K = first 60 chars. 
CLEAR = clear CTRL—-H = help CTRL-N = middle 60 
CTRL-P = print on Paper Tiger CTRL-O = last 60 


Use any of the eight directional keys on the numeric pad or the 
joystick to position the cursor or pen point. 


Text mode: 


CTRL- = move column up CTRL— 
CTRL- move column down CTRL- 


move row right 
move row left 


II 
I 


Pressing any letter, praphic or numeric key (except directional 
keys) will cause the associated character to appear in the current 
cursor position. 
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Drawing modes: 


use eraser 
mark line start 
draw line from marker to pen 


Uy = pen up 
pen down 
I = use ink 


m 

lI 
Fe O.. 

iI 


Since 4 new commands were added, it was necessary to modify ths help 
table considerably to include those commands. Since the old help table 
occupied nearly all of the screen, there was no obvious spare space for new 
information. Therefore, it was necessary to redesign the table so that the 
new commands would fit into the space of the original table. The new code 
for this table is at the end of this article in the form of a monitor dump. 


The Problem 


Once you have a drawing on the screen, you do not want to pollute 
the display by typing commands as we do with the monitor. Instead, 


Exec-A-Sketch responds to a set of control codes to print the display, save 
the display, etc. Since the control codes do not normally put anything on 


the screen, they do not ruin the display. 


To receive these control codes and to choose the desired routine, 
Exec—-A-Sketch has two series of compare and jump instructions. Each of them 
asks if the code is something that the program can handle = and, 1f ait is, 
Switches the program to the correct routine. What we want to do is toa 
invade those two series so that the control codes we will add for the Epson 
printers will also be recognized. 


A fairly convenient place to make that invasion is at the two places 
where the code for Paper Tiger printing is chosen (12CO and 18C9 Hex). To 
understand what must be done, we must examine the original code a bit. With 
the control code in the accumulator, the code is identified with a compare 
command (e.g. CP 10h). If the code is not that value, the routine jumps to 
the next compare command. If the code is 10 hex (CTRL-P), first the cursor 
is removed by replacing it with a space, then the Faper Tiger routine 15 
called, the cursor is restored, and the program jumps back to the routines 
used before the control code was typed. 


What we want to dois to insert a CALL command at these two places to 
redirect the search for control codes to our Epson routines. Then we can 
search for the codes we will add. A convenient place for those new routines 
happens to be at the end of the original program at 2210 hex. That is 
fortunate, because some programs use the space at their ends to store data. 


After we get into the Epson routines, there is the problem of getting 
back into the original program. It is a problem for more than one reason. 
First of all, we are jumping back to one of two possible places. Therefore, 
we must keep track of the return address. Second, depending on what is 
accomplished in the Epson routines, we want to jump back to one of three 
possible places in the original routine. If the control code is for Faper 
Tiger printing, we must go back to the full Paper Tiger routine. If the 
code is for Epson printing, we must go back to the jump instruction which 
leads to normal operation. If the code is not for printing at all, we must 
go back to the code that will continue the search for the correct routine. 
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As the following assembly listing shows, to do all of this, we put a 
CALL instruction into 12CO and 18C9 followed by a NOP. This will replace 
the CP instruction for the Paper Tiger and the following JR which sends the 
Program to the following CP’*s in the series. Once we have arrived in the 
Epson routines, we test for Paper Tiger Printing first. If that is the 
choice, we simply return to the NOF which leads to the proper print routine. 
Next, we test for the four print routines we have added for the Epson 
Printer. If we find one of them, we do the printing and modify the return 
address to continue the search for the right routine for the typed code. 


Use The Farallel Port 


Once we know how to get into and out of our new routines, we can make 
some decisions about those routines. Because it is convenient to send whole 
bytes of 8 bits to the printer and the Centronics output from the Sorcerer 
Gives only 7 bits, this Epson patch uses the Sorcerer "parallel" output. 
The serial port is also not very good because not all of the serial boards 
for the MX-80 are compatable with the Graftrax ROM’s. Besides, you would 
want to reserve the serial output to access the telephone through your 


modem. 


If you are determined to have seial output, search in the routine for 
these combinations: CD 21 EO (CALL PARLOT). Each one must be changed to CD 
12 -EO. In addition, the baud rate must be set with the monitor SE T=? 
command to suite your printer. 


Changing to Centronics output is more dificult because there are only 7 
bits to use. Not only must you change those CD 21 EO combinations, but you 
must collect dots from the screen in groups of 7 not 8. Because the 
Sorcerer screen uses 8 by 8 blocks of dots for each character, it is easier 
to deal with Groups of 8 dots. In addition, you must change the distance 
between the lines on the printer because there will be only 7 dots per line. 
In conclusion, you must rewrite the routines for Centronics output, So 
change your connections to the parallel output and save a great deal of 
work. 


480 or 760 Dots? 


Recause the Sorcerer and the printers differ in the number of 
characters per line and the number of dots per character, it is convenient 
to have two routines to connect the Sorcerer to the Mx-80. The Graftrax 
ROM*?s allow you to have 480 or 9760 dots per line: the Sorcerer produces 312 
dots horizontally. 


The problem with the 960-dot display (CTRL-H) is that the 512 dots from 
the Sorcerer will not fill the page horizontally. Therefore, in the 960-dot 
routine, the S12 Sorcerer dots are put near the center of the Page by 
Putting 19 blank characters at the left of the screen. If you want to 
change this left-side margin, change the byte at 27227BH in that routine. It 
1S 13H now (19 decimal). You could make it any value from zero to 25H (37 
decimal) without chopping off one side of your display. 
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One problem with the 480-dot display is that you can’t put the full 5312 
Sorcerer dots on the paper. Another way to put it, is that you can print on 
60 of the 64 characters in each line. However, you can choose which 480 
dots (69 Sorcerer characters) you want to print. With these routines, you 
can choose to print the first 480 dots (CTRL-K), the middle 480 dots 
(CTRL-N). or the last 480 dots (CTRL-O). 


Another problem with the 480-dot display is that the ratio of the 
vertical dimension to the horizontal dimemsion on the printer 1s not the 
same as it is on the screen. The printer display 1s relatively streched 
horizontally. The problem is that the 8 by 8 Blocks of dots that the 
Sorcerer screen produces are rectangles, not squares. The %760-dot display 
is Siilar to the Sorcerer display, so you might prefer it even though is 
small. If you wanted a printed display that produced squares of 8 ay: bs dots 
you might prefer the 480-dot routines. 


Printing Lines of Dots 


Now we come to the actual business of sending lines of dots to the 
printer. As is perhaps obvious, we will take the pattern of dots from the 
screen, character by character, and send it to the printer. Ferhaps it 1s 
also obvious to anyone familiar with the Sorcerer that the screen RAM 
contains codes that tell the computer where to find the pattern of dots in 
the character memory. Therefore, after sending some control codes to the 
printer, the first thing we must do is to get each character from the screen 
RAM at "LINE" and then find the 8 bytes in the character memory starting at 
FBOOH that produce those characters. Since there is a fixed mathematical 
relationship between the character code and the representation of that 
character in memory, we can calculate the address of that representation. 
Hence, we multiply the character code by 8 in "MULT" and add it to the start 
of the character memory, "“TOP:.," to get the location of the desired 8 bytes 
of dots. 


Ferhaps it is also obvious that since each line on a Sorcerer screen is 
8 bits high, we really want a printer that can print 8 dots in each line. 
Epson printers do that, but the Paper Tiger has only seven print wires. 
Therefore, it is relatively easy to send the screen display to an Epson 
printer. All we must do is to take the eight bytes which represent the eight 
rows of dots in each character, and rearrange them as eight columns of dots 
before sending them to the printer. That takes a bit of programming, But it 
is not at all as difficult as dealing with a printer that prints only 7 
dots. 


< is ~. 
ORIGINAL BYTE 7 a a 

be ae Gea ee me 

ok a eter 

oe a 

a eae me SR aw fe eS 

>: oe a ae en a” a “ae 

De Se ee Se a SS ee 
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To make the rearrangement of dots, we set register = to a number that 
represents one of original bytes for each character. If you consult the 
Graftrax instructions, you will see that the top bit of each column of print 
1s the most significatn bit. Therefore, we initially make the top bit a 1 
(L = 128 decimal) to denote the first original byte. Thereafter, we shift L 
right to represent the other 7 original bytes. 


Register B represents the bits we are selecting to send to the printer. 
Since we want to collect all the left-hand bits first and they are the most 
significant bits in the original bytes, we set the top bit of EE to 1 to 
Start (BH = 128 decimal). 


Once we have these two registers set, we examine each of the original 
bytes to determine if it has a 1 in the position we are collecting. That 
iS, we.compare bits in the original bytes with the bit in B. If the bits 
match, we transfer the bit to E, where we are collecting the output byte. 
When we have collected all 8 bits in E, we send them, restore L to the first 
Original byte (128 decimal), and shift B to point to the next column of 
bits. 


The rest of the procedure is fairly obvious. As we progress through 
the line, we decrement the character counter in register C until it reaches 
zero. Then, at the end of each line, we send a Carriage return and line 
feed. After 20 lines, which register H records, we terminate the routine, 
and return to the main part of Exec—-A-Sketch. 


Conclusion 
That concludes the modifications to Exex—-A-Sketch. All you need is a 


copy of the program and you can enter the new code. 


The Help Table 


Addr Se ee ae ae eres o- 2 Cc DPD & 
O170: 4S 
O10: .5S4 az AC 2 46 20 3D 20 .66 69 GE.45 . 20,790, 74.2 
O297Os. 20 20 43 54 S2 4C 2D 43 20 3D 20 GD .. 6F..6E..69- 74 
OSAOs... 6F S2-20 4D..98..20 38.50 <20. 70 72 49... 66.28 oe oe 


O1BO: 67 OD 20 20 43 34 S2 4C 2D 4D 20 2D 20 46D 65 64 
O10: 69 75 GD 20. .70. 74.20 43: 54 S2 4C:. 2 ek Lt SP 2 

O1D0s 73 61 76 65 20 20 20 20 43 534 S32 4C 2D 42 20 SD 
O1EO: 20 462 GF GE 64 65 6E 73 65 64 OD 20 20 43 54 S2 
O1FO: 4C 2D 34 20 SD 20 74 65 78 74 20 6D 6&F 64 65 20 


Addr (2. Te SS .* OS &  # 8 F A S&B cD & 
0200: 43 54 52 4C 2D 4C 20 2D 20 &6C S&F 61 64 20 20 20 
O210s 20 42 54 52 4C 2D 4B 20 SD 20 66 4&9 72 73 74 20 
0220 3G 30 £0 GS 68 61 72.75 -2& OD 20 20 43 46 45-233 
0250s S32 20 20 3S 20 635 6C 6S 61 72 20 20 20 20 20 43 
O240s S54 52 4C 2D 48 20 3D 20 68 65 6C 70 20 20 20 20 
O250: 42 534 52 4C 2D 4E 20 2D 20 6D 69 64 64 6C 65 20 
0260; 36 30 0D 20 20 43 34 S2 4C 2D 30 20 S30. 2e Fo 72 
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Oo270: 49 6E 74 20 6F 6E 20 50 61 70 65 7 
O280: 65 72 20. 20. 20 20 2 2 20 42 34 3S 
0290: SD 20 6C 61 73 74 20 3 20 OD OD 2 
O?ZAO: 20 61 6E 79 20 6F 66 20 74 68 65 2 
O2B0: 74 20 64 69 2? 65 G62 74 69 6F 6E 61 6C 20 &B GS 
O2CO: 79 7S 20 6F GE. 20 74 62 S 20 6E 75 6D'GS 72 69 
o7D0: 63 20 70 61 64 OD 20 20 6F 72 20 74 468 &5 20 6A 
O2EOs 6F 79 72 74 69 &3 GE 2 74 6F 20 7O GF 73 6&9 74 
O2FO: 69 GF 6E 20 74 68 65 2 62:79 72 73. oF 72 29 (oF 


Addr Oo 3°23 2 4 5 6 7 8B 9F A B ee 2 ££. 


OZ00: 72 20 70 65 GE 20 70 6F 69 6E 74 2E OD OD 54 45 
0310: 78 74 20 6D 6F 464 465 SA OD OD 20 20 43 54 52 4C 
0220: 2D 80 20 2D 20 4D 4F 76 65 20 63 6F 46C 75 4D GE 
OS350- 20 75 7O 2O Bo 20 20 43 54 52 4C 2D 81 20 SD 20 
0240: 4D 6F 76 65 20 72 6F 77 20 72 49 &7 68 74 OD 2 

0250: 20 43 54 52 4C 2D 82 20 =D 20 6D 4F 76 45 20 4&2 
OZ60: 6F 6C 75 6D 4E 20 64 6F 77 6E 20 20 43 54 52 4C 
0370: 2D 82 270 3D 20 6D 46F 76 65 20 72 6F 77 20 4C 45 
OZ80: 66 74 OD OD 270 70 50 72 45 72 73 69 6E 47 20 Gil 
0290: &éE 79 20 6C 45 74 74 465 72 20 20 67 72 61 70 68 
O3A0: 69 63 20 6F 72 20 6E 75 6D 65 72 69 42 20 6B 45 
OZBO: 79 20 28 65 78 63 65 70 74 OD 20 20 44 469 72 45 
O2CO: 63 74 69 6F GE 41 6C 20 4B 465 79 73 29°20 77 69 
OZDO: 6C 6C 20 63 61 75 72 65 20 74 68 65 20 41 74 45 
OZEO: SF 62 69 61 74 65 64 20 63 61 68 72 G1 63 74 65 
OSEO: 72 Of 20 20 74 SF 20 61 7O 70 65 61 “72 20 69 GE 


Addr ae ate SS + “Bo iy oF. a &@ GS  .& 


0400: 20 74 68 65 20 63 735 72 2 65 6E 74 20 63 75 72 
041702 73 6F 72 20. 70 6F 73 69 74 69 GF GE ZE OD OD 44 
0420: 72 61 77 69 6E 67 20 6D 6F 64 65 73 SA OD OD 20 
o4s0: 26 55 20 =D 20 70 65 6E 20 75 70 20 20 20 20 20 
0440: 20 20 20 20 20 20 20 20 20 20 20 20 45 20 SD 20 
0450; 75 73 65 20 65 72°81 73 #5 72 OD <2 20 44 20 3D 
04460: 20 70 65 6E 20 64 6F 77 GE 20 20 20 20 20 20 20 
0470: 26 20 20 20 20 20 2060 20 4D 20 3D 20 &D 61 72 6B 
0480: 20 6C 69 6E 65 20 73 74 61 72 74 OD 20 20 49 2 
0490; 32D 20 75 73 65 20 69 GE 66 


The Added Print Routines 


0000 00000 This is the MX-80 patch for the Exec—A-sketch 
0000 7 elererleni program. It is written in Zetu, so 


OOOO QO0002 5 hexadecimal numbers have # signs in front 
0000 OO003 ;: and relative jumps are denoted as 

Oo000 00004 =; JR RETURN, for example, not JR RETURN-$. 
Qg00 O0O00S ; 

0000 OQ0006 :First, we must call this routine in two places. 
0000 Q0007 3; 

O000 00008 ORG #12C0 

42150 O0009  ; 

1200 CD 10 <2 oo0o0i0 LINK1i CALL PATCH ;CALL THE ROUTINE 


1Z03 00 ooo0i1 NOP :FILL SPACE WITH NOP 
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2210 
2210 
22i0 
2110 
2210 
m949 
Z2Liz 
<el4 
Lee 
Laika 
wei 
Ceo 
2915 
tives Bs he Ned 
gt 
2219 
221C 
22a 
ae hae Sa | 
pale egy aie ot 
22255 
e207 


eA 


Pat a, 


es ty he 


a ae 


221 
4A 
eG 


tot 


co OS 
yey a 


P23E 
2240 
2243 
2245 
2248 
224A 
224D 
P24F 
2252 
2254 
2257 
2258 
2258 
225C 


Fata 


CD 10 
00 


EQ?1 
FO8O 
FBOO 
OO1B8 


re 
20 
C9 


10 
O1 


O2 


OO 


aA 
Bon hes 


FO 


O0012 
00013 
oOoo0o14 
ooo1s 
00016 
00017 
600018 
00019 
00020 
00027 1 
00022 
O0023 
00024 
Oo05S 

00026 
00027 
00028 
00029 
00020 
00031 
00032 
00032 
00034 
00035 
O0026 
00037 
00038 
00029 
00040 
ooo4i 
00042 
O0042 
00044 
00045 
OO046 
00047 
00048 
O0049 
60050 
oOoos1 
00052 
00053 
00054 
0005S 


“OO00S56 


00057 
00058 
00059 
00060 
O0061 
00062 
00063 
00064 
00065 
000664 
00067 


LINK? 


aa 


‘a8 ‘a@ ‘aa 


ORG 


NOP 


ORG 


PARLOT EQU 


VID: 
TOP: 
ESC 


EQU 
EQU 
EQU 


#18C9 


CALL PATCH 


The rest of the program 
detecting control 


#2210 
#EO21 
#F O80 
#F B00 
ae i 


extends the process of 
codes. 


sFPARALLEL OUTFUT 

;START OF SCREEN RAM 
sSTART CHARACTER MEMORY 
sESC CODE 


-First, there 1s a link to the print routine for 
the Paper Tiger. 


PATCH CP 


“z ou m8 
DO 
on 
© 


SETUP 


2 
4 
2 
3 


JR 
RET 


-This is the 


Epson 


CP 
JR 
CALL 
LD 
LD 
CALL 
LD 
CALL 
LD 
CALL 
LD 
CALL 
LD 
CALL 
LD 
CALL 
LD 
CALL 
LD 
CALL 
LD 
CALL 
LD 
CALL 
LD 
CALL 
DEC 
JR 
JR 


#10 
NZ.M1940 


;CTRL-P? 
;NOT PAPER TIGER, JUMP 
;IT°S TIGER, GO BACK 


960 dots-per-line routine for the 


printer 


#02 
NZ,F480 
FIRST 
IY.VID: 
A, ESC 
PARLOT 
A, "D" 
FARLOT 
A,19 
FARLOT 
A, O 
PARLOT 
A, #0D 
PARLOT 
A.? 
PARLOT 
A, ESC 
PARLOT 
As “i” 
FARLOT 
A, O 
PARLOT 
Aa 
PARLOT 
C, 64 
LINE 

Hi 

NZ. SETUP 
RESET 


This routine prints the 


-CTRL-B? 
:JUMP IF NOT 960 DOTS 
;DO PRELIMINARY CHORES 
; IY=SCREEN RAM ADDRESS 
-SET TAB AT COLUMN 19 


:CLEAR BUFFER WITH CR 
-TAB TO COLUMN 19 


; PREPARE FOR 312 COLUMNS 


246 = S12 


; C=CHARACTERS IN A LINE 
;PRINT A LINE 

sNEXT LINE 

,LUGF “Foe 20 LINES 


first 480 dots. 
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225C 
225C 


a ava) 


2260 
2205 
etal 
2269 
2269 
ZeOF 
aL? 
22O6R 
226D 
Zero 
2276 
22t& 
22/78 
wes 
22/7D 
Ze 1 
weal «ot 
22731 
2261 
2283 
=~2G6 
2208 
--8B 
228D 
Pag 1B 
wate 
Pa" eee 
at tf 
22PA 
a | a 
sas” 5 ol 
22ZAO 


OAR 
22A5 
ee AD 


2eAS 


Zeno 


ZcA?/ 
2cAA 
2 ZAC 
aA 
22 Bi 
2LR4 
226 
22BB8 
an? 
2 2BA 
22BR 
22BC 
2~2CO 
22CO 
220 


20 


OF 
OF? 
CF 
21 
18 


OE 


OF 


36 


FO 


FO 


EO 


EO 


EO 


EO 


OO. Fr 


00068 
00069 
00070 
00071 
00072 
00073 
00074 
00075 
00076 
00077 
00078 
00079 
00083 
00084 
o008ssS 
00084 
00087 
00088 
00089 
00090 
oooFr 1 
00092 
0009 
00094 
O0095 
00096 
00097 
00098 
00099 
00100 
00101 
QOg102 
00102 
Q0104 
00105 
00106 
00107 
00108 
00109 
00110 
oo1i1 
00112 
oo11= 
00114 
00115 
00116 
00117 
00118 
00119 
OO1L120 
oo121 
00122 
00123 
00124 
00125 
00126 


F480 es #08 
JR NZ,M480 
CALL FIRST 
LD IN. Vite 
JR COMBO 
-This routine prints 
M4g0 wo #OE 
JR NZ, L480 
CAL. ; FIKST 
s;This routine prints 
L480 CP #0F 
JR NZ.NOPRT 
CALL FIRST 
LD TY, ViIDs +4 


‘28 ‘a8 ‘S68 


COMEO 


-This 


RESET 


‘a0 ‘aa ‘at 


Sorcerer’s 


LD 
CALL 
LD 
CALL 
LD 
CALL 
LD 
CALL 


La iy 


CALL 
INC 
INC 
INC 
INC 
DEC 
JR 


ends 


LD 
CALL 
LD 
CALL 
LD 
CALL 
FOF 
FOP 
POP 
POP 
POP 
POP 
LD 


> THIS PART IS USED BY 


A, ESC 
FARLOT 
A, "K" 
FARLOT 
A, 224 
FARLOT 
Avi 
PARLOT 
60 
LINE 
LY 

LY 

IY 

LY 

L4 


NZ. COMBO 


the 


the 


-CTRL-K? 

- JUMP IF NOT F480 

>DO FRELIMINARY CHORES 
;START AT LETTER 0 


middle 480 dots. 


-CTRL-N? 

;JUMP IF NOT M480 

:DO FRELIMINARY CHORES 
last 480dots. 


= CTRO-O? 
-<NOT A PRINT CODE 
:DO PRELIMINARY CHORES 
;START AT LETTER 4 


ALL 480-DOT ROUTINES. 


all routines. 


A,ESC 
PARLOT 
A,"A 
PARLOT 
A, 12 
PARLOT 
Ix 

HL 

DE 

BC 

AF 
(IT¥+00) , 


#FF 


;PREPARE FOR 480COLUMNS 


-... 1 * 256 = 480 


;C=CHARACTERS IN A LINE 
-PRINT A LINE 
-JUMF 4 CHARACTERS 


sNEXT LINE 
;LOOP FOR =O LINES 


SSFAL ING Te) 12/72 IMs 


sRESTORE REGISTERS 


sRESTORE WHITE CURSOR 


: We come here when we have found the control 


code and we must jump back to the other 
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OF 


p Oa 


OO 


00 


OO 


00 


EO 


FO 


20 


00127 
00178 
00129 
00120 
OO1S1 
Os oe 
OO1L322 
00134 
00125 
00126 
00127 
00138 
00129 
00140 
00142 
60142 
00144 
OO1L4S 
00146 
00147 
00148 
00149 
00150 
oo1si 
00152 
00152 
00154 
OO1SS 
00156 
00157 
oOo158 
00159 
00160 
00161 
QOOL62 
QO0163 
00164 
00165 
QO0166 
O0167 
00168 
00169 
00170 
OO171 
00172 
00172 
00174 
00175 
00176 
OO177 
00178 
00179 
00180 
Oo181 
00182 
00183 


‘aa ‘au 


RETURN 


An ‘a8 


NOPRT 


routines. 


EXX 
LD 
FOF 
ADD 
PUSH 
EXX 
RET 


sWe come here when we 


sALTERNATE REGISTER 


EC, #000F :CHANGE TO JF INSTR. 
HL :GET RETURN ADDRSS 

HL. BC ;CHANGE IT 

HL ;STORE NEW RETURN ADR. 


;MAIN REGISTERS 
-BACK TO ORGINAL CODE 


want to continue the 


search for the control code. 


EXX 
LD 
JR 


; ALTERNATE REGISTERS 
sCHANGE TO CF INSTR. 
;CHANGE RETURN ADDRESS 


BC, #0012 
RETURN 


-The first part is used by all Epson routines. 


FIRST 


‘ae ‘pa 


LINE 
MULT 


MULT 1 


MULT2 


LD 
EXX 
FOF 
EXX 
PUSH 
PUSH 
FUSH 
PUSH 
PUSH 
PUSH 
EXX 
PUSH 
EXX 
LD 
LD 
CALL 
LD 
CALL 
LD 
CALL 
LD 
CALL 
RET 


(TY¥+00) , #20 


;ERASE THE CURSOR 
-STORE RETURN ADDRESS 
HL : IN HL? 


AF 
BC 
DE 
HL 
1X 
LY 


sSTORE REGISTERS 


sPUT RETURN ADDRESS 
HL s BACK ON THE STACK 


sH=LINE NUMBER 
s;LINE SPACING 8/72 IN. 


H, 0 
A,ESC 
PARLOT 
A, "A" 
FARLOT 
A.8 
PARLOT 
A, #0D 
PARLOT 


;CLEAR BUFFER WITH CR 


This is the part that sends one line to the 


printer. 

LD &, £LY?*00) sGET THE NEXT CHARACTER 
LD A,O sCLEAR A } 
SLA E SMOOVE ‘E Gert. DBUBLES IT 
JR NC,MULTI 

ADD A, #04 ;IF CARRY, ADD 4 TO A 
SLA € sMULTIFLIED BY 4 NOW 

JR NC,MULT2 

ADD A,2 ;IF CARR, ADD 2 TO A 

SLA E sMULTIPLIED BY 8 NOW 

JR NC, MULT S 

ADD A,1 ;iF CARRY, PUT IN 1 MORE 
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aoe Of 00184 MULT2 LD DA ;D=HIGH BYTE OF EX8& 


2210 DD 21 00 FS 00185 ty > 1%, Tor: -TOP: + DE EQUALS 
2214 DD 19 00186 ADD I1X,DE :START OF CHAR. BYTES 
2316 DD ES 00187 FUSH IX ;STARTING BYTE STORED 
2218 06 BO 00188 [D 5,128 ;B=BYTES SENT 

231A 2E 80 00189 PRT8 LD L,1i28 ;L=BITS IN THOSE BYTES 
231C 1£ 00 00190 LD £,0 ;E=STORAGE FOR BITS 
231E DD E1 00191 FOF IX :GET 1ST CHAR ADDRESS 
2220 DD ES 00192 PUSH IX ;BUT KEEP IT STORED 2222 DD 
2322 7E 00 00192 ASSBL LD A, (1X+00) -CHARACTER BYTE TO A 
2225 AO 00194 AND & -IS THE EB BIT A 1 

2326 28 03 00195 JR Z,ASSBL1 -IF NOT, JUMP 

2228 7B 00194 LD A,E -GET BYTE SO FAR 

2329 85 00197 ADD A,L ;ADD THE APPROFRIATE BIT 
252A SF 00198 {D €E.A -STORE THE RESULT 

2328 DD 22 00199 ASSBLi INC IX -NEXT BYTE 

232D CB 3D 00200 SRL OL sNEXT BIT POSITION 
252F 20 Fi 00201 JR  NZ,ASSBL :LOOF UNTIL L=0 

2231 7B 00202 LD AE ;GET COMPLETE BYTE 

2332 CD 21 EO 00202 CALL PARLOT ;SEND IT 

2235 CB =8 00204 SRL & ;NEXT COLUMN OF DOTS 
2337 20 £1 00205 JR NZ,.PRTS ;LOOP FOR 8 COLUMNS 
2339 DD E1 00206 POF Ix >SCRATCH STARTING BYTE 
232=R FD 22 00207 INC IY :NEXT CHARACTER 

223D OD 00208 DEC C -ONE LESS CHAR IN LINE 
2223E 20 BB 00209 JR  WNZ,LINE ;LOOF UNTIL LINE ENS 
2240 3E OD 00210 LD A,#OD -SEND CARRIAGE RETURN 
23542 CD 21 £0 oo?it CALL PARLOT 

2245 SE OA 00712 [ID A,#0OA -AND LINE FEED 

2247 CD 21 EO 0021= CALL PARLOT 

2z4A C9 00214 RET 


SYMBpoO.. TABLE 


ASSBLi 222 ASSRL embed COMBO eatin = | no, QO18# 
fr inot Pits Oe F480 Pe ace L480 2210 LINE sera 
LINK2 18C? LINK1 12CO MULT S Peet MULT2 pa 8 
MULT 1 2005 MULT Z2er 8 M480 Pa 4 M960 Pia Bee 
NOPRT ate Te 4 PRTS zolA FARLOT EO21 PATCH aie © & 
RETURN 22C4 RESET 22AS Se tlir pa tars FBO0O 
VID: FO8O 


Random L # ©3 
Ry 


Tommy Stokes 


Should you keep your Sorcerer? Yes! Worried about it being obsolete? Just 
think of how many new machines are being made using the ZB80 and = running 
CP/M. Those manufacturers aren’t worried about producing an obsolete 
machine. Should you? If you have a Sorcerer and are only using cassettes 
your choice of software is very limited, but you can upgrade to a disk 
system for a reasonable price. 
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For instance, the Commodore 64 sells for $200, But adding a disk drive costs 
$750 and adding a color monitor another $250. You now have a disk based 
computer for #700 that is a good value and has color, however, the disk 
drive is slow, the basic is hard to work with, assembly language requires an 
additional monitor, you have a 40 column screen (and you thought 64 columns 
were bad), CP/M is an add-on (and you thought it was hard to find CP/M 
software in Exidy format), etc., etc., etc. 


Now don*t get me wrong. I’7m not running the 64 down. It 1S a good machine 
at aoevery qood price. I just want you to think before you junk your 
Sorcerer and buy another machine. Do you really need to? Use that money to 
buy a disk drive or S-100 box. Then you will be adaptable and in step with 
the rest of the world. If you want to expand, you can buy a S-100 board. If 
you want software buy CP/M software. That’s what people with Kaypros~= and 
other Z8O0 machines are doing. If you can*t find your format (which most 
soft-sectored people can*t), there are several people who will convert for 
you at a very reasonable price. Among those are Creative Computing Products 
or Eaglenest Software. 


What I really want to get across is that the Sorcerer is a qood machine, 
there are many people using it, and there is no reason to panic. Keep your 
Sorcerer, expand your Sorcerer, and use your Sorcerer. Only you can limit 
what your Sorcerer will do. 


= <r Sale — 
Micropolis hard sectored single drive system 
and CF/M. $200, 00 
Gene Lubker 
1134 Cynthia Square 
Mountain Home, AR 72652 
S01 425 3724 


Pr om bagienes t& 


The following is a list of services and equipment provided in the near 
future by Eaglenest. Some quanities are limited. Call for availability. 


Eaglenest Software 
425 North Church St. 
Mountain Home, AR 72652 
S01 425-9182 


Avallable now. 


Sorcerer II (new in boxes).....-. oe ie a ae ee 
FDS drive system... ceeneanneeeese vn sew end Wee Ve 
PDS add on driv@sc«< <4 cta ce cePawesaen ow ae « Ss BO 
FDS Controller card A & Taccescanavatnnas $150.00 


Comming soon. 
S-100 Exspansion Unit. (without tops)....%250.00 
S-100 Interface card A & Tansaancuanansanee $80.00 


Everything is guaranteed. We service all Exidy equipment 
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CREATIVE COMPUTER PRODUCTS 
SOFTWARE: 


Exidy Edit - An excellent screen oriented editor tailored especially for the Sorcerer. 
Extremely easy to learn and use; has a built in menu, special assembly language 
features, text formatting capabilities, and much more. (disk $34.95) 


Bacteria World - A creative, screen oriented game based on Scientific American’s game 
of "LIFE". Create bacteria worlds, see bacteria live and die, makes many interesting 
patterns. (tape $12, disk $14) 


DD - A disk directory display program. It displays your directory in alphabetical 
order. It also shows the number of files on the disk, number of file control blocks, and 
amount of space remaining on the disk. (disk $14.95) 


CPMINT - A program that converts your programs between Exidy Hard and Soft sector 
formats. (disk $34.95) 


Tapechk - A program that allows you to view and read tapes, even if they contain CRC 
errors. User selects viewing of input in ASCII, hex, or headers only, or you can load 
tape data into memory. (tape $9.95) 


F TRMWARE 


ROMPAC DISK BASIC - This upgrade to the standard Exidy Basic ROMPAC maintains all of 
the current BASIC features, while adding two important NEW commands: The DSAVE command 
allows you to save basic programs directly to disk. The files can be read back in with 
the new DLOAD command. You also get an easy-to-use, full-screen Basic editor!!! 


ROMPAC DISK BASIC Upgrade ROM kit..csscccsevccves $39.95 
Comp rete new DISK .BASIC ROMPAC....cecsvccrsvcesivs $79.95 
EXIDY/TVI MONITOR - This pair of monitor ROMS replace your current ROMS and give you 


full Televideo emulation. Run all those “standard” CP/M programs that use cursor 
addressing, clear-to-eol, etc. You can also run dBase II, SuperCalc, and other terminal 
dependent programs. And the MTVI monitor is 99.99% compatible with your old Exidy 
software plus the old monitors bugs have been fixed. Note that although the TVI monitor 
simulates the Televideo for output, it does not simulate the Televideo keyboard codes. 
Therefore, some changes or re-configuration may be necessary to some programs’ for 
complete compatibility. For complete TVI emulation, use TVI monitor version -A. The 
monitor set contains two 2716, single 5 volt EPROMS. Some Sorcerers may require a cut 
and jumper to change from present ROMS or 3 voltage EPROMS to 5 volt type. 


TVI-O (Televideo output simulation) or TVL. spagactevideo I/O simulation)...$39.95 

* ts 2 By 
HA 11 Van 
ACR 
Exidy Repairs - We _ repair wenn equipment and systems. Write with your problem 
description for a repair price quote. 


SERVICES : 


Disk Format Conversion - We will convert the contents of your disks from/to any of the 
following formats: 8' single density soft sectored, 8'' double density soft sectored, 5 
1/4" Exidy soft sectored, 5 1/4'' Micropolis hard sectored, or any 5-1/4" 48 or 96 TPI 


soft sectored. 


Send name, address, and your order (including 5% shipping and handling, and 6-1/2% tax 
if California resident) to: 
Creative Computer Products 
2313 W. 18lst ST. Torrance, CA 90504 
«xxx OTHER PRODUCTS AVAILABLE; send a SASE to address above for cataloge! 


Dealer inquiries invited. CP/M is a trademark of Digital Research 


"he Sorcerer’s Apprentice Newsletter will be published at least six times this vear by Eaglenest and the Sorcerer’s 
& Computer Bulletin Board Service 15 available, courtesy of Robert Hageman. To access the 


Apprentice user’s group. 
“BES just call ( 


Membership rates are $19.00 per volume first class to USA, Canada, and Mexico. All others £24.00 oer volume ‘air 


~ 


Sack 1ssues are available from Don Gottwald, Box 22, Madison He:ghts, MI 48071, USA as follows: 


Frices include 


fresco Volume 1, Issues 485 (25 copies only)......9 3,00 ed. 
SA Volume I, Issues 1-7......(40 copies only)....06$12.00/vol. 
SA Volume I], Issues 1-5.....(40 copzes onlv)..ee0e$12.00/Vol. 


35 
SA Volume iti, Issues Hs Oe ee ek soe a pig eee WOE « 


Class postage in USA cniy. First Class Mail for USA, Canada, and Mexico add $3.00/volune, 


All others add $6.00 for Air Mail. 


S11 members 


are encouraged to submit articles, orcgrams and/or newsworthy items for publication. Material may be 

. * ad 3 ~ uw } c 

submitted on hadcopy, Wordprocessor files on cassette (please record at 300 baud and at least two copies), Exidy FDS, 
z 


“icrogolis Mod [1, aight inch single density, or uploa 


gd to the CBBS (313-525-9186), when sending magnetic media, de 


sure tc orotect 15 adequately te prevent shipping damage. Alsc inclue a hardcopy, in case the information on the 


Magnetic media is unreadable. 


Cassette and Disks will be returned, hardcopy only if requested and accomoanied ty a 


> 31359 -his : ~ seis t “Tees 3 ‘ bE a - ee ig S Th g-ertes } e., 
iG rates are available upon vequest. Classified advertising send $1.00 oer 74 cOLuUAM ilheé or 


hone ral]: = ine 
° re ro. Aan > end at a cnr .4nC Fata! 
od RIRGw ss. cs CFSOGRN <SCSOPN CST.) ewe tes AZO) LBZ 
7 een THE! ‘ADs POT 8 EAyiani—s47e 
i OTRY Stokes, (4: 30F™ = 1: OOF el tec e e (OL) 42) ww Tas 
Andy Barts. .< (4:50PM - LOsgOPR- GST. by... (90D8423-988/ 


SEND ALL CORRESPONDENCE TO: 


